/ Acorn RISC PD-CD 1 / Acorn RISC PD-CD 1.iso / utilities / _customise / ssavers / _hangfire / modules / fireflies

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 1e f4 20 3e 3c | 43 75 72 72 65 6e 74 24 |..... ><|Current$|
|00000010| 44 69 72 3e 2e 46 69 72 | 65 46 6c 69 65 73 0d 00 |Dir>.Fir|eFlies..|
|00000020| 14 20 f4 20 50 72 6f 67 | 72 61 6d 20 20 20 48 61 |. . Prog|ram   Ha|
|00000030| 6e 67 20 46 69 72 65 20 | 4d 6f 64 75 6c 65 0d 00 |ng Fire |Module..|
|00000040| 1e 14 f4 20 56 65 72 73 | 69 6f 6e 20 20 20 30 2e |... Vers|ion   0.|
|00000050| 30 38 0d 00 28 1c f4 20 | 41 75 74 68 6f 72 20 20 |08..(.. |Author  |
|00000060| 20 20 45 64 6f 75 61 72 | 64 20 50 6f 6f 72 0d 00 |  Edouar|d Poor..|
|00000070| 32 18 f4 20 57 72 69 74 | 74 65 6e 20 20 20 4d 61 |2.. Writ|ten   Ma|
|00000080| 79 20 31 39 39 31 0d 00 | 3c 24 f4 20 50 72 6f 67 |y 1991..|<$. Prog|
|00000090| 72 61 6d 20 20 20 53 75 | 62 6a 65 63 74 20 74 6f |ram   Su|bject to|
|000000a0| 20 43 6f 70 79 72 69 67 | 68 74 0d 00 46 04 0d 00 | Copyrig|ht..F...|
|000000b0| 50 1d c8 99 22 57 69 6d | 70 5f 43 6f 6d 6d 61 6e |P..."Wim|p_Comman|
|000000c0| 64 57 69 6e 64 6f 77 22 | 2c 2d 31 0d 00 5a 04 0d |dWindow"|,-1..Z..|
|000000d0| 00 64 17 de 20 53 63 72 | 61 74 63 68 41 72 65 61 |.d.. Scr|atchArea|
|000000e0| 20 33 32 30 30 30 0d 00 | 6e 04 0d 00 78 18 48 46 | 32000..|n...x.HF|
|000000f0| 5f 53 63 72 65 65 6e 4d | 61 78 58 20 3d 20 31 36 |_ScreenM|axX = 16|
|00000100| 36 32 0d 00 82 18 48 46 | 5f 53 63 72 65 65 6e 4d |62....HF|_ScreenM|
|00000110| 61 78 59 20 3d 20 31 31 | 34 34 0d 00 8c 15 48 46 |axY = 11|44....HF|
|00000120| 5f 53 63 72 65 65 6e 4d | 69 6e 58 20 3d 20 30 0d |_ScreenM|inX = 0.|
|00000130| 00 96 15 48 46 5f 53 63 | 72 65 65 6e 4d 69 6e 59 |...HF_Sc|reenMinY|
|00000140| 20 3d 20 30 0d 00 a0 04 | 0d 00 aa 25 78 3d a4 46 | = 0....|...%x=.F|
|00000150| 69 72 65 46 6c 69 65 73 | 5f 49 6e 73 74 61 6c 6c |ireFlies|_Install|
|00000160| 28 53 63 72 61 74 63 68 | 41 72 65 61 29 0d 00 b4 |(Scratch|Area)...|
|00000170| 16 78 3d a4 46 69 72 65 | 46 6c 69 65 73 5f 53 74 |.x=.Fire|Flies_St|
|00000180| 61 72 74 0d 00 be 05 f5 | 0d 00 c8 17 20 20 78 3d |art.....|....  x=|
|00000190| a4 46 69 72 65 46 6c 69 | 65 73 5f 50 6f 6c 6c 0d |.FireFli|es_Poll.|
|000001a0| 00 d2 07 fd 20 30 0d 00 | dc 17 78 3d a4 46 69 72 |.... 0..|..x=.Fir|
|000001b0| 65 46 6c 69 65 73 5f 46 | 69 6e 69 73 68 0d 00 e6 |eFlies_F|inish...|
|000001c0| 04 0d 00 f0 05 e0 0d 00 | fa 04 0d 01 04 04 0d 01 |........|........|
|000001d0| 0e 04 0d 01 18 25 dd 20 | a4 46 69 72 65 46 6c 69 |.....%. |.FireFli|
|000001e0| 65 73 5f 49 6e 73 74 61 | 6c 6c 28 53 63 72 61 74 |es_Insta|ll(Scrat|
|000001f0| 63 68 41 72 65 61 29 0d | 01 22 04 0d 01 2c 23 f4 |chArea).|."...,#.|
|00000200| 20 58 20 61 6e 64 20 59 | 20 61 72 65 20 34 20 62 | X and Y| are 4 b|
|00000210| 79 74 65 73 20 3d 20 38 | 20 42 79 74 65 73 0d 01 |ytes = 8| Bytes..|
|00000220| 36 22 f4 20 31 36 20 53 | 65 67 6d 65 6e 74 73 20 |6". 16 S|egments |
|00000230| 6d 61 78 20 3d 20 31 36 | 78 38 20 3d 20 31 32 38 |max = 16|x8 = 128|
|00000240| 0d 01 40 27 f4 20 33 32 | 20 46 6c 69 65 73 20 69 |..@'. 32| Flies i|
|00000250| 6e 20 74 6f 74 61 6c 20 | 3d 20 33 32 2a 31 32 38 |n total |= 32*128|
|00000260| 20 3d 20 34 30 39 36 0d | 01 4a 04 0d 01 54 13 f4 | = 4096.|.J...T..|
|00000270| 20 25 66 66 66 66 66 73 | 73 73 73 78 30 30 0d 01 | %fffffs|sssx00..|
|00000280| 5e 04 0d 01 68 20 46 69 | 72 65 46 6c 69 65 73 5f |^...h Fi|reFlies_|
|00000290| 41 72 65 61 20 3d 20 53 | 63 72 61 74 63 68 41 72 |Area = S|cratchAr|
|000002a0| 65 61 0d 01 72 04 0d 01 | 7c 1d 46 69 72 65 46 6c |ea..r...||.FireFl|
|000002b0| 69 65 73 5f 4d 61 78 46 | 6c 69 65 73 20 20 20 20 |ies_MaxF|lies    |
|000002c0| 3d 20 38 0d 01 86 1d 46 | 69 72 65 46 6c 69 65 73 |= 8....F|ireFlies|
|000002d0| 5f 4d 61 78 53 65 67 6d | 65 6e 74 73 20 3d 20 36 |_MaxSegm|ents = 6|
|000002e0| 0d 01 90 04 0d 01 9a 06 | 3d 30 0d 01 a4 04 0d 01 |........|=0......|
|000002f0| ae 04 0d 01 b8 04 0d 01 | c2 04 0d 02 4e 16 dd 20 |........|....N.. |
|00000300| a4 46 69 72 65 46 6c 69 | 65 73 5f 53 74 61 72 74 |.FireFli|es_Start|
|00000310| 0d 02 58 04 0d 02 62 0b | ea 20 46 58 2c 46 59 0d |..X...b.|. FX,FY.|
|00000320| 02 6c 04 0d 02 76 16 e3 | 20 46 69 72 65 46 6c 79 |.l...v..| FireFly|
|00000330| 20 3d 20 31 20 b8 20 33 | 31 0d 02 80 1c 20 20 58 | = 1 . 3|1....  X|
|00000340| 20 3d 20 b3 28 20 48 46 | 5f 53 63 72 65 65 6e 4d | = .( HF|_ScreenM|
|00000350| 61 78 58 20 29 0d 02 8a | 1c 20 20 59 20 3d 20 b3 |axX )...|.  Y = .|
|00000360| 28 20 48 46 5f 53 63 72 | 65 65 6e 4d 61 78 59 20 |( HF_Scr|eenMaxY |
|00000370| 29 0d 02 94 18 20 20 e3 | 20 53 65 67 6d 65 6e 74 |)....  .| Segment|
|00000380| 20 3d 20 31 20 b8 20 31 | 35 0d 02 9e 24 20 20 20 | = 1 . 1|5...$   |
|00000390| 20 46 58 20 3d 20 46 69 | 72 65 46 6c 79 2a 31 32 | FX = Fi|reFly*12|
|000003a0| 38 20 2b 20 53 65 67 6d | 65 6e 74 2a 38 0d 02 a8 |8 + Segm|ent*8...|
|000003b0| 27 20 20 20 20 46 59 20 | 3d 20 46 69 72 65 46 6c |'    FY |= FireFl|
|000003c0| 79 2a 31 32 38 20 2b 20 | 53 65 67 6d 65 6e 74 2a |y*128 + |Segment*|
|000003d0| 38 20 2b 34 0d 02 b2 1d | 20 20 20 20 46 69 72 65 |8 +4....|    Fire|
|000003e0| 46 6c 69 65 73 5f 41 72 | 65 61 21 46 58 20 3d 20 |Flies_Ar|ea!FX = |
|000003f0| 58 0d 02 bc 1d 20 20 20 | 20 46 69 72 65 46 6c 69 |X....   | FireFli|
|00000400| 65 73 5f 41 72 65 61 21 | 46 59 20 3d 20 59 0d 02 |es_Area!|FY = Y..|
|00000410| c6 07 20 20 ed 0d 02 d0 | 05 ed 0d 02 da 04 0d 02 |..  ....|........|
|00000420| e4 30 46 69 72 65 46 6c | 69 65 73 5f 43 75 72 72 |.0FireFl|ies_Curr|
|00000430| 65 6e 74 50 74 72 20 3d | 20 46 69 72 65 46 6c 69 |entPtr =| FireFli|
|00000440| 65 73 5f 4d 61 78 53 65 | 67 6d 65 6e 74 73 0d 02 |es_MaxSe|gments..|
|00000450| ee 32 46 69 72 65 46 6c | 69 65 73 5f 4c 61 73 74 |.2FireFl|ies_Last|
|00000460| 50 74 72 20 20 20 20 3d | 20 46 69 72 65 46 6c 69 |Ptr    =| FireFli|
|00000470| 65 73 5f 4d 61 78 53 65 | 67 6d 65 6e 74 73 2d 31 |es_MaxSe|gments-1|
|00000480| 0d 02 f8 04 0d 03 02 19 | 46 69 72 65 46 6c 69 65 |........|FireFlie|
|00000490| 73 5f 50 72 65 73 65 6e | 74 20 3d 20 31 0d 03 0c |s_Presen|t = 1...|
|000004a0| 04 0d 03 16 06 3d 30 0d | 03 20 04 0d 03 2a 04 0d |.....=0.|. ...*..|
|000004b0| 03 34 04 0d 03 3e 04 0d | 03 48 04 0d 03 52 15 dd |.4...>..|.H...R..|
|000004c0| 20 a4 46 69 72 65 46 6c | 69 65 73 5f 50 6f 6c 6c | .FireFl|ies_Poll|
|000004d0| 0d 03 5c 04 0d 03 66 32 | ea 20 43 58 2c 43 59 2c |..\...f2|. CX,CY,|
|000004e0| 4e 58 2c 4e 59 2c 43 46 | 58 2c 43 46 59 2c 4e 46 |NX,NY,CF|X,CFY,NF|
|000004f0| 58 2c 4e 46 59 2c 52 58 | 2c 52 59 2c 52 43 2c 46 |X,NFY,RX|,RY,RC,F|
|00000500| 69 72 65 46 6c 79 0d 03 | 70 04 0d 03 7a 2e e7 20 |ireFly..|p...z.. |
|00000510| 46 69 72 65 46 6c 69 65 | 73 5f 50 72 65 73 65 6e |FireFlie|s_Presen|
|00000520| 74 20 3c 20 46 69 72 65 | 46 6c 69 65 73 5f 4d 61 |t < Fire|Flies_Ma|
|00000530| 78 46 6c 69 65 73 20 8c | 0d 03 84 29 20 20 e7 20 |xFlies .|...)  . |
|00000540| b3 28 33 30 30 29 20 3d | 20 31 20 8c 20 46 69 72 |.(300) =| 1 . Fir|
|00000550| 65 46 6c 69 65 73 5f 50 | 72 65 73 65 6e 74 2b 3d |eFlies_P|resent+=|
|00000560| 31 0d 03 8e 05 cd 0d 03 | 98 04 0d 03 a2 2e 46 69 |1.......|......Fi|
|00000570| 72 65 46 6c 69 65 73 5f | 4e 65 78 74 50 74 72 20 |reFlies_|NextPtr |
|00000580| 3d 20 46 69 72 65 46 6c | 69 65 73 5f 43 75 72 72 |= FireFl|ies_Curr|
|00000590| 65 6e 74 50 74 72 2b 31 | 0d 03 ac 47 e7 20 46 69 |entPtr+1|...G. Fi|
|000005a0| 72 65 46 6c 69 65 73 5f | 4e 65 78 74 50 74 72 20 |reFlies_|NextPtr |
|000005b0| 3e 20 46 69 72 65 46 6c | 69 65 73 5f 4d 61 78 53 |> FireFl|ies_MaxS|
|000005c0| 65 67 6d 65 6e 74 73 20 | 8c 20 46 69 72 65 46 6c |egments |. FireFl|
|000005d0| 69 65 73 5f 4e 65 78 74 | 50 74 72 20 3d 20 31 0d |ies_Next|Ptr = 1.|
|000005e0| 03 b6 04 0d 03 c0 06 c8 | 96 0d 03 ca 04 0d 03 d4 |........|........|
|000005f0| 25 e3 20 46 69 72 65 46 | 6c 79 20 3d 20 31 20 b8 |%. FireF|ly = 1 .|
|00000600| 20 46 69 72 65 46 6c 69 | 65 73 5f 50 72 65 73 65 | FireFli|es_Prese|
|00000610| 6e 74 0d 03 de 30 20 20 | 43 46 58 20 3d 20 46 69 |nt...0  |CFX = Fi|
|00000620| 72 65 46 6c 79 2a 31 32 | 38 20 2b 20 46 69 72 65 |reFly*12|8 + Fire|
|00000630| 46 6c 69 65 73 5f 43 75 | 72 72 65 6e 74 50 74 72 |Flies_Cu|rrentPtr|
|00000640| 2a 38 0d 03 e8 33 20 20 | 43 46 59 20 3d 20 46 69 |*8...3  |CFY = Fi|
|00000650| 72 65 46 6c 79 2a 31 32 | 38 20 2b 20 46 69 72 65 |reFly*12|8 + Fire|
|00000660| 46 6c 69 65 73 5f 43 75 | 72 72 65 6e 74 50 74 72 |Flies_Cu|rrentPtr|
|00000670| 2a 38 20 2b 34 0d 03 f2 | 2d 20 20 4e 46 58 20 3d |*8 +4...|-  NFX =|
|00000680| 20 46 69 72 65 46 6c 79 | 2a 31 32 38 20 2b 20 46 | FireFly|*128 + F|
|00000690| 69 72 65 46 6c 69 65 73 | 5f 4e 65 78 74 50 74 72 |ireFlies|_NextPtr|
|000006a0| 2a 38 0d 03 fc 30 20 20 | 4e 46 59 20 3d 20 46 69 |*8...0  |NFY = Fi|
|000006b0| 72 65 46 6c 79 2a 31 32 | 38 20 2b 20 46 69 72 65 |reFly*12|8 + Fire|
|000006c0| 46 6c 69 65 73 5f 4e 65 | 78 74 50 74 72 2a 38 20 |Flies_Ne|xtPtr*8 |
|000006d0| 2b 34 0d 04 06 1d 20 20 | 43 58 20 3d 20 46 69 72 |+4....  |CX = Fir|
|000006e0| 65 46 6c 69 65 73 5f 41 | 72 65 61 21 43 46 58 0d |eFlies_A|rea!CFX.|
|000006f0| 04 10 1d 20 20 43 59 20 | 3d 20 46 69 72 65 46 6c |...  CY |= FireFl|
|00000700| 69 65 73 5f 41 72 65 61 | 21 43 46 59 0d 04 1a 1d |ies_Area|!CFY....|
|00000710| 20 20 4e 58 20 3d 20 46 | 69 72 65 46 6c 69 65 73 |  NX = F|ireFlies|
|00000720| 5f 41 72 65 61 21 4e 46 | 58 0d 04 24 1d 20 20 4e |_Area!NF|X..$.  N|
|00000730| 59 20 3d 20 46 69 72 65 | 46 6c 69 65 73 5f 41 72 |Y = Fire|Flies_Ar|
|00000740| 65 61 21 4e 46 59 0d 04 | 2e 04 0d 04 38 19 20 20 |ea!NFY..|....8.  |
|00000750| 52 58 20 3d 20 28 43 58 | 2b 36 34 2d b3 28 31 32 |RX = (CX|+64-.(12|
|00000760| 38 29 29 0d 04 42 19 20 | 20 52 59 20 3d 20 28 43 |8))..B. | RY = (C|
|00000770| 59 2b 36 34 2d b3 28 31 | 32 38 29 29 0d 04 4c 12 |Y+64-.(1|28))..L.|
|00000780| 20 20 52 43 20 3d 20 b0 | 52 58 2c 52 59 29 0d 04 |  RC = .|RX,RY)..|
|00000790| 56 04 0d 04 60 27 20 20 | e7 20 52 43 20 3c 3e 20 |V...`'  |. RC <> |
|000007a0| 2d 31 20 80 20 52 43 20 | 3c 3e 20 37 20 80 20 b3 |-1 . RC |<> 7 . .|
|000007b0| 28 33 29 20 3e 20 31 20 | 8c 0d 04 6a 18 20 20 20 |(3) > 1 |...j.   |
|000007c0| 20 43 58 20 2b 3d 20 b4 | 28 52 58 2d 43 58 29 2a | CX += .|(RX-CX)*|
|000007d0| 38 0d 04 74 18 20 20 20 | 20 43 59 20 2b 3d 20 b4 |8..t.   | CY += .|
|000007e0| 28 52 59 2d 43 59 29 2a | 38 0d 04 7e 07 20 20 cc |(RY-CY)*|8..~.  .|
|000007f0| 0d 04 88 1c 20 20 20 20 | 43 58 20 3d 20 43 58 20 |....    |CX = CX |
|00000800| 2b 20 28 b3 28 33 29 2d | 32 29 2a 38 0d 04 92 1c |+ (.(3)-|2)*8....|
|00000810| 20 20 20 20 43 59 20 3d | 20 43 59 20 2b 20 28 b3 |    CY =| CY + (.|
|00000820| 28 33 29 2d 32 29 2a 38 | 0d 04 9c 07 20 20 cd 0d |(3)-2)*8|....  ..|
|00000830| 04 a6 04 0d 04 b0 22 20 | 20 e7 20 43 58 20 3e 20 |......" | . CX > |
|00000840| 48 46 5f 53 63 72 65 65 | 6e 4d 61 78 58 20 8c 20 |HF_Scree|nMaxX . |
|00000850| 43 58 2d 3d 38 0d 04 ba | 22 20 20 e7 20 43 58 20 |CX-=8...|"  . CX |
|00000860| 3c 20 48 46 5f 53 63 72 | 65 65 6e 4d 69 6e 58 20 |< HF_Scr|eenMinX |
|00000870| 8c 20 43 58 2b 3d 38 0d | 04 c4 22 20 20 e7 20 43 |. CX+=8.|.."  . C|
|00000880| 59 20 3e 20 48 46 5f 53 | 63 72 65 65 6e 4d 61 78 |Y > HF_S|creenMax|
|00000890| 59 20 8c 20 43 59 2d 3d | 38 0d 04 ce 22 20 20 e7 |Y . CY-=|8..."  .|
|000008a0| 20 43 59 20 3c 20 48 46 | 5f 53 63 72 65 65 6e 4d | CY < HF|_ScreenM|
|000008b0| 69 6e 59 20 8c 20 43 59 | 2b 3d 38 0d 04 d8 04 0d |inY . CY|+=8.....|
|000008c0| 04 e2 1d 20 20 46 69 72 | 65 46 6c 69 65 73 5f 41 |...  Fir|eFlies_A|
|000008d0| 72 65 61 21 4e 46 58 20 | 3d 20 43 58 0d 04 ec 1d |rea!NFX |= CX....|
|000008e0| 20 20 46 69 72 65 46 6c | 69 65 73 5f 41 72 65 61 |  FireFl|ies_Area|
|000008f0| 21 4e 46 59 20 3d 20 43 | 59 0d 04 f6 04 0d 05 00 |!NFY = C|Y.......|
|00000900| 2c 20 20 c8 99 22 43 6f | 6c 6f 75 72 54 72 61 6e |,  .."Co|lourTran|
|00000910| 73 5f 53 65 74 47 43 4f | 4c 22 2c 26 30 30 46 46 |s_SetGCO|L",&00FF|
|00000920| 30 30 30 30 2c 2c 30 2c | 30 0d 05 0a 14 20 20 c8 |0000,,0,|0....  .|
|00000930| 8f 20 c8 90 20 43 58 2c | 43 59 2c 31 32 0d 05 14 |. .. CX,|CY,12...|
|00000940| 04 0d 05 1e 2c 20 20 c8 | 99 22 43 6f 6c 6f 75 72 |....,  .|."Colour|
|00000950| 54 72 61 6e 73 5f 53 65 | 74 47 43 4f 4c 22 2c 26 |Trans_Se|tGCOL",&|
|00000960| 30 30 30 30 30 30 30 30 | 2c 2c 30 2c 30 0d 05 28 |00000000|,,0,0..(|
|00000970| 14 20 20 c8 8f 20 c8 90 | 20 4e 58 2c 4e 59 2c 31 |.  .. ..| NX,NY,1|
|00000980| 32 0d 05 32 05 ed 0d 05 | 3c 04 0d 05 46 2f 46 69 |2..2....|<...F/Fi|
|00000990| 72 65 46 6c 69 65 73 5f | 4c 61 73 74 50 74 72 20 |reFlies_|LastPtr |
|000009a0| 20 20 20 3d 20 46 69 72 | 65 46 6c 69 65 73 5f 43 |   = Fir|eFlies_C|
|000009b0| 75 72 72 65 6e 74 50 74 | 72 0d 05 50 2c 46 69 72 |urrentPt|r..P,Fir|
|000009c0| 65 46 6c 69 65 73 5f 43 | 75 72 72 65 6e 74 50 74 |eFlies_C|urrentPt|
|000009d0| 72 20 3d 20 46 69 72 65 | 46 6c 69 65 73 5f 4e 65 |r = Fire|Flies_Ne|
|000009e0| 78 74 50 74 72 0d 05 5a | 04 0d 05 64 06 3d 30 0d |xtPtr..Z|...d.=0.|
|000009f0| 05 6e 04 0d 05 78 04 0d | 05 82 04 0d 05 8c 04 0d |.n...x..|........|
|00000a00| 05 96 17 dd 20 a4 46 69 | 72 65 46 6c 69 65 73 5f |.... .Fi|reFlies_|
|00000a10| 46 69 6e 69 73 68 0d 05 | a0 04 0d 05 aa 06 3d 30 |Finish..|......=0|
|00000a20| 0d ff                   |                         |..      |        |
+--------+-------------------------+-------------------------+--------+--------+